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RESUME 

Nous  presentons  ici  une  version  ameliorge  d'un  programme 
servant  a la  traduction  des  mnemoniques  employes  dans  la  programmation 
du  microprocesseur  8080  en  code  machine.  Ce  programme,  ecrit  en 
langage  FORTRAN,  permet  egalement  la  simulation  exacte  du  comportement 
du  microprocesseur  dans  des  applications  reelles  de  m§me  que  l'emploi 
d etiquettes  pour  les  instructions  de  branchement.  II  permet  en  outre 
la  simulation  d' interruptions  et  1' impression  des  resultats  intermediai- 
res.  Cette  nouvelle  version,  en  plus  d'gtre  dix  fois  plus  rapide  que 
la  version  en  APL,  peut  Stre  utilisee  sur  tout  ordinateur  possedant  un 
compilateur  FORTRAN.  (NC) 


ABSTRACT 

'^his  report  describes  an  improved  version  of  an  assembler  and 
simulator  being  used  to  translate  man-readable  statements  into  machine- 
understandable  code.  This  program,  written  in  FORTRAN,  allows  programm- 
ing of  the  8080  microprocessor  in  symbolic  language  as  well  as  the  use 
of  labels  for  jump  instructions  while  the  simulator  duplicates  exactly 
the  behavior  of  the  microprocessor  in  real  applications.  It  is  also 
possible  to  simulate  interrupts  and  print  out  intermediate  results. 

This  new  version  may  be  used  on  any  computer  with  a FORTRAN  compiler 
while  the  former  APL  version  was  slower  by  a factor 
to  a computer  with  an  APL  interpreter.  (U) 
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1.0  INTRODUCTION 


This  report  describes  an  improved  version  of  the  8080 
microprocessor  assembler  and  simulator  previously  discussed  and 
published  (Ref  1).  The  new  version  written  in  FORTRAN-IV  language  (as 
opposed  to  APL  before)  makes  use  of  files  for  storing  any  assembler 
program  as  well  as  the  simulated  microprocessor  memory  which  permit 
program  editing  of  unlimited  length.  The  former  APL  version  was  limited 
to  1500  instruction  programs. 

It  is  also  possible  to  transfer  directly  the  data  generated 
by  the  assembler  to  the  erasable  programmable  read-only  memory  (EPROM) 
programmer  described  in  Ref  2. 

The  FORTRAN  language  permits  a much  faster  execution  of 
program  instructions  as  well  as  the  use  of  the  computer  system  editor. 

The  assembler  will  first  translate  the  8080  program  into 
machine  language,  give  an  address  to  all  labels,  find  any  error  in  the 
program,  and  execute  the  program  exactly  as  would  the  microprocessor. 

It  will  also  simulate  interrupts  and  print  out  intermediate  data  during 
execution.  Although  this  program  is  usable  only  with  the  8080 
microprocessor,  the  technique  used  in  the  FORTRAN  routines  may  be 
applied  to  any  other  microprocessors. 

Section  2.0  briefly  describes  the  assembler  and  simulator 
operating  principle.  Section  3.0  details  the  use  of  the  assembler  and 
simulator.  Section  4.0  outlines  the  EPROM  programming  procedure.  The 
work  was  performed  at  DREV  between  May  and  August,  1976  under  PCN  33A10, 
"Improvement  to  Equipment". 
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2.0  THEORY  OF  OPERATION 


2.1  The  assembler 


The  program  assembling  is  done  by  a two-pass  assembler.  In 
the  first  pass,  the  binary  coding  of  all  instructions  is  accomplished 
except  that  of  jump  addresses  in  all  jump  and  call  instructions.  A 
table  containing  all  labels,  with  their  respective  addresses,  is  also 
constructed.  Any  syntax  errors,  illegal  instructions  or  illegal 
arguments  will  also  be  detected  in  the  first  pass.  The  second  pass  is 
exclusively  used  to  give  values  to  bytes  2 and  3 of  all  jump  and  call 
instructions. 

During  the  assembling,  the  read-only  memory  (ROM)  content  is 
kept  on  the  computer  file  system  up  to  a maximum  of  65536  memory 
positions.  Two  other  files  are  also  built  during  the  assembling;  they 
are  scratch  pad  files  used  only  in  the  simulation. 

The  present  program  limitations  are  5000  lines  and  500  labels. 
These  limits  are  artificial  and  may  be  changed  if  the  need  exists. 

2.2  The  simulator 


After  the  program  has  been  assembled,  it  may  be  simulated. 

The  simulation  faithfully  reproduces  the  operation  of  the  microprocessor 
in  real  applications.  In  particular,  the  jumps,  the  calls  to 
subroutines,  the  returns  from  subroutines,  the  stack,  the  flags  and  the 
random  access  memory  (RAM)  are  manipulated  in  the  same  way  as  they  would 
be  in  the  8080  microprocessor.  It  is  also  possible  to  print  out  the 
processor  status  at  any  time  with  the  PRIN  command  and  to  output  a 
memory  map  of  256  bytes  located  between  0 and  65535  in  the  memory. 

These  printouts  will  not  interfere  with  the  result  of  the  assembling. 
These  commands  are  used  to  analyze  and  to  monitor  the  program. 
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Similarly,  it  is  also  possible  to  simulate  interrupts  at  any  point  in 
the  program. 

A few  other  special  instructions  may  be  used  throughout  the 
program.  A complete  description  is  given  in  the  next  section. 

3.0  UTILIZATION  OF  THE  PROGRAM 

The  program  is  first  written  in  a file  using  the  computer 
system  editor.  The  program  must  then  be  copied  in  order  to  remove  any 
deleted  line  or  to  reorder  any  fractional  numbered  line.  The  command 
is  COPY  X OVER  X,  1 where  X is  the  file  name. 

3. 1 Basic  instruction  set 

The  following  remarks  should  be  taken  into  account  while 
writing  the  program: 

a)  There  must  be  at  least  one  instruction  per  line.  Each 
instruction  may  optionally  be  followed  by  a semicolon  and  a comment. 

The  maximum  length  of  a line  is  128  characters.  There  is  no  restriction 
on  the  comment  content. 

b)  An  instruction  may  be  optionally  preceded  by  a label  and  a 
colon.  The  colon  is  used  only  if  a label  is  present.  The  label  may  be 
of  any  length  but  only  the  first  four  (4)  characters  will  be  meaningful. 
During  the  assembling,  a label  table  is  constructed  and  is  outputted  at 
the  end  of  this  operation.  The  only  restriction  on  the  label 


characters  is  that  they  must  not  be  a space,  a semicolon  or  a colon. 
A nonexecutable  instruction  should  not  have  a label. 
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TABLE  I 


Instruction  set 


Instruction  format 
MOV  Rl,  R2 
INR  R 
DCR  R 
ADD  R 
ADC  R 
SUB  R 
SBB  R 
ANA  R 
XRA  R 
ORA  R 
CMP  R 
RLC 
RRC 
RAL 
RAR 
HLT 
RET 
RC 
RNC 
RZ 
RNZ 
RP 
RM 
RPE 
RPO 
RST  A 
PUSH  RR 
POP  RR 
XCHG 


Remarks 

R1=R2=M  is  illegal 
R=A,B,C,D,E,H,L,  or  M 


0<A<7 

RP=PSW, B,D ,H 
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TABLE  I (contd) 


No 

Instruction  format 

Remarks 

30 

XTHL 

31 

SPHL 

32 

PCHL 

33 

DAD  RR 

RR=SP,B,D,H 

34 

STAX  R 

R=B  or  D 

35 

LDAX  R 

R=B  or  D 

36 

INX  RR 

RR=  SP,  B,  D or 

37 

DCX  RR 

38 

CMA 

39 

STC 

40 

CMC 

41 

DAA 

42 

El 

43 

DI 

44 

NOP 

45 

MV I R,A 

R=A,B,C,D,E,H,L  o: 

46 

ADI  A 

0 < A < 256 

47 

AC  I A 

48 

SUI  A 

49 

SBI  A 

50 

AN  I A 

51 

XRI  A 

52 

ORI  A 

53 

CPI  A 

54 

IN  A 

55 

OUT  A 

56 

JMP  LABEL 

57 

JC  LABEL 

58 

JNC  LABEL 

59 

JZ  LABEL 

60 

JNZ  LABEL 
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TABLE  I (contd) 


No 

Instruction  format 

61 

JP  LABEL 

62 

JM  LABEL 

63 

JPE 

LABEL 

64 

JPO 

LABEL 

65 

CALL  LABEL 

66 

CC 

LABEL 

67 

CNC 

LABEL 

68 

CZ 

LABEL 

69 

CNZ 

LABEL 

70 

CP 

LABEL 

71 

CM 

LABEL 

72 

CPE 

LABEL 

73 

CPO 

LABEL 

74 

LXI 

RR,AA 

75 

STA 

AA 

76 

LDA 

AA 

77 

SHLD 

AA 

78 

LHLD 

AA 

79 

INTE 

80 

PRIN 

81 

END 

82 

ASSI 

AA,A 

83 

MAP  , 

\ 

84 

LABEL:  VAR  AA 

85 

BASE 

AA 

86 

ASSD 

LABEL,  AA 

Remarks 


RR=B,D,H  or  SP 
0<  AA  < 6SS36 


0<  AA  < 256  (data) 
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c)  All  instructions  must  be  followed  by  their  appropriate 
arguments.  These  are  described  in  Ref  3 and  are  reproduced  in  Table  1 
for  convenience.  There  must  be  a space  between  the  instruction  and 
the  first  argument  and  a comma  between  the  arguments  of  a two-argument 
instruction.  Numbered  argument  N must  respect  the  following  convention: 

N shall  be  a nonfractional  decimal  number  with  0 < N < 65536. 

3. 2 Special  instructions 

Several  special  instructions  have  been  added  to  the  basic 
instruction  set  in  order  to  facilitate  the  assembling  and  the  simulation. 
These  are: 


a)  PR IN:  This  instruction  is  used  without  argument  and  will 
print  out  the  processor  status,  the  line  counter,  and  the  registers, 
namely:  program  counter,  accumulator,  registers,  B,  C,  D,  E,  H,  L, 
stack  pointer,  5 flags  (carry,  zero,  sign,  parity  and  auxiliary  carry), 
enable  interrupt  and  a special  counter  which  calculates  the  number  of 
steps  (clock  pulses)  elapsed  since  the  beginning  of  the  simulation 

(if  the  processor  works  at  2 MHz,  one  step  is  0.5  ps) . 

PRIN  will  not  affect  the  assembling  and  should  be  used  to 
help  in  debugging  a program. 

b)  INTE:  This  instruction  simulates  an  interrupt  that  will 
happen  exactly  at  the  position  where  the  instruction  is  put  in  the 
program.  No  argument  is  needed.  The  assembled  program  will  not  be 
changed  by  this  instruction.  This  may  be  used  anywhere  in  the  program 
to  know  what  will  be  the  effect  of  an  interrupt  happening  at  this 
particular  point. 

c)  END:  This  instruction  must  be  the  last  instruction  of  a 
given  program.  No  argument  is  needed  and  assembling  is  unaffected. 
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d)  ASSI : This  special  instruction  is  used  to  assign  a 
number  ( 0 < N < 256)  to  a particular  ROM  address.  One  instruction 
should  be  used  for  each  byte  to  be  assigned.  Simulation  is  not 
affected. 

e)  MAP:  During  simulation,  this  instruction  will  print  out 
the  content  of  a memory  page.  A page  is  formed  by  256  consecutive  bytes. 
Anyone  of  the  65536  bytes  of  the  memory  may  be  printed  with  this 
instruction  without  affecting  the  assembling.  A numerical  argument  N 

is  needed  ( 0 < N < 255)  to  select  the  page. 

f)  VAR:  The  VAR  command  is  used  to  assign  an  address  to  a 
label.  However  only  the  assembling  is  affected  by  this  instruction. 

It  should  be  used  to  assign  an  address  to  a label  which  is  not  part  of 
the  program  now  under  assembling.  Therefore,  this  instruction  requires 
a label  and  the  right  argument  of  this  instruction  (VAR)  is  the  address 
to  be  associated  with  the  label. 

g)  BASE:  This  instruction  is  used  to  change  the  program 
counter  value.  The  instruction  following  BASE  will  have  the  value  of 
the  argument  of  BASE  as  program  counter. 

h)  ASSD:  This  instruction  may  be  used  to  facilitate  the 
addressing  of  a portion  of  a program  in  a relocatable  context.  The 
first  argument  must  be  a label  and  the  second  argument  represents 

the  address  where  the  label  address  will  be  stored  (two  bytes  are  then 
written).  This  instruction  affects  only  the  assembling. 

All  nonexecutable  instructions  immediately  following  a CALL, 
JUMP  or  PCHL  will  not  be  executed  during  the  simulation.  There  is  no 
restriction  for  the  assembling. 

Once  the  FORTRAN  program  (given  in  Appendix  A)  has  been 
compiled  (the  object  program  is  called  OBJ)  and  your  program  is  ready, 
the  procedure  is  started  by  entering 
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SET 

F:l, 

DC/ 

SET 

F:2, 

DC/ 

SET 

F:  3, 

DC/ 

SET 

F:4, 

DC/ 

X;  IN 

F2; INOUT;SAVE 
F3; INOUTjSAVE 
F4; INOUTjSAVE 


Where  "X"  identifies  the  file  the  8080  program  is  stored  in. 
F2  is  the  memory  file.  F3  and  F4  are  two  additional  scratch  pad  files. 
These  set  commands  should  be  entered  only  once  per  LOGON.  Execution 
of  OBJ  is  initiated  by  RUN  OBJ. 


3.3  Error  messages 

a)  Label  error:  A label  is  missing  or  there  are  two  or  more 
similar  labels. 


b)  Argument  error:  The  argument  is  unacceptable  or  missing. 

c)  Syntax  error:  Probably  a nonexisting  instruction. 

d)  BAD  KEY  or  MISSING  RECORD:  An  attempt  has  been  made  to 
write  or  read  in  an  undefined  record.  If  this  happens  during  the 
simulation,  the  following  things  should  be  checked: 

1-  The  stack  pointer  or  the  stack  is  wrong. 

2-  The  program  is  longer  than  5000  lines. 

3-  There  are  more  than  500  labels. 

4-  The  H and  L register  content  is  wrong. 

4.0  INTERFACE  WITH  THE  PROM  PROGRAMMER 


A FORTRAN  program  called  MOR  has  been  written  to  interface 
the  assembler  with  a PROM  programmer.  This  program  should  be  compiled 
and  linked  to  APLFNS.  LPR  to  obtain  an  object  program  called  MORP 
which  is  given  in  Appendix  B.  The  execution  of  MORP  is  initiated  by 
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START  MORP 

The  question  "What  is  the  starting  memory  page?"  must  be 
answered  by  a number  A (0  < A < 252).  The  program  will  then  transfer 
4 pages  (1024  bytes)  to  an  APL  file  named  FA.  After  the  following 
operations: 

APL 

)L0AD  W 

ASSPROM 

) SAVE 

are  completed,  a vector  A of  1024  elements  is  saved  in  the 
workspace  W.  The  main  purpose  of  ASSPROM  is  thus  to  transfer  the 
content  of  the  APL  file  FA  to  the  vector  A which  is  directly  compatible 
with  the  PROM  programmer  described  in  Ref  2.  The  listing  of  ASSPROM  is 
given  in  Appendix  C. 


S.O  CONCLUSION 


The  improved  version  of  the  8080  microprocessor  assembler  and 
simulator  described  in  this  report  has  permitted  a speed  increase  in 
program  execution  time  by  a factor  of  10  over  the  former  APL  version 
while  eliminating  most  of  its  shortcomings. 

The  program  is  assembled  in  two  passes  and  simulated  after- 
wards. The  simulator,  which  faithfully  reproduces  the  functions  of  the 
microprocessor  in  real  applications,  will  reduce  considerably  the 
writing  and  debugging  time  of  programs  employed  in  system  designs  using 
the  8080  microprocessor. 

This  assembler  and  simulator  proved  to  be  effective  for 
developing  8080-based  microcomputer  systems.  For  many  applications, 
where  microcomputer  systems  are  used  to  replace  hardwire  logic,  it  is 
essential  for  the  program  writer  to  keep  a total  control  on  the  nature 
and  timing  of  each  instruction.  Our  assembler  gives  the  programmer 
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this  control,  whereas  high-level  programming  languages  like  the  PL/M 
80  do  not. 

Furthermore,  many  project  developments  may  be  carried  out  at 
the  same  time  with  the  assembler  and  simulator  without  interfering  with 
each  other,  otherwise  each  project  would  have  required  its  own 
development  system. 

The  technique  developped  for  this  assembler  and  simulator  can 
be  adapted  to  any  type  of  microprocessor. 
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APPENDIX  A 

FORTRAN  Program  Listing 


EDIT  LEC 

EDIT  HERE 
*TY  1-1000 

1.000 

DIMENSION  Z(32),Zfll2(4) ,LABR (500) ,IRR ( 10) ,N( 3 ) ,IPC R( 500 ) ,KS ( 256 ) 

2.000 

COMMON  IBU  P (3 ,256) ,NC ( 3 ) , IFL ( 3 ) 

3.000 

DATA  IEI ,N ,LABC  ,IPC  ,<7<7,Z#S,ZS2’»ZZ/0,0,44,55,0,0,0,0,0,1/ 

4.000 

DEFINE  PILE  2 ( 256 , 2 56 ,U , ICA ). 3 ( 20 . 256 ,U , ICB) . 4 ( 64 . 256 ,U , ICB ) 

5.000 

DO  476  J- 1,3 

6.000 

DO  486  *=1,256 

7.000 

486 

IBUF (J , *)  =0 

e .ooo 

NC (J ) -\ 

9.000 

476 

IFL(J)=0 

10.000 

409 

JJ=JJ* 1 

11.000 

CALL  SKJJ  ,0  .LABP.LAB  .INST  .IR1P.IR2P.IR12 .1) 

12.000 

CALL  REUR(JJ - 1 , 2 , ZPC , 1 ) 

13.000 

IF (LABP .EQ .Q)GOTO  400 

14.000 

L ABC -L ABC +1 

15.000 

LABR(LABC)-LAB 

16.000 

IPC  R ( LABC ) -IPC 

17.000 

400 

IP (INST .GE .26)00  TO  475 

18.000 

DO  405  <7  = 1,3 

19.000 

IP ( INST .GT . N (J) ) CALL  REWR(IL^) ,3 ,JJ ,1) 

20.000 

405 

IF(INST.GT.N(J))IL^IL*1 

21.000 

475 

GOTO( 1,2,3,4,5,6.7,8,9,10,11,12,13,14,15,16,17,18,19, 

22.000 

120,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36, 

23.000 

237,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53, 

24.000 

354,55,56,57,58,59,60,61,62,63,64,65.66,67,68,69,70, 

25.000 

4 7 1, 7 2, 7 3, 74, 7 5, 76. 7 7, 7 8, 4 09, 4 09, 8 1,8 2, 40 9. 84, 8 5, 40 9 ) .INST 

26.000 

PRINT  481 ,JJ 

27.000 

481 

FORMAT ( 'AT  LINE  NO  '.15.'  THE  INST.  DOES  NOT  EXIST’) 

27.100 

GOTO  409 

28.000 

45 

CALL  REG(I ,IR\2(\) ,ZR12(2) ,*) 

29.000 

X=6+8*(*«l) 

30.000 

CALL  CTE(I  ,IR\2(3)  , Z/?l  2(4)  ,*1) 

31.000 

CALL  URI (K ,K\ , IPC ) 

32.000 

GO  TO  409 

33.000 

245 

CALL  REURUPC  .1.K.0) 

34.000 

K = K/  8 

35.000 

CALL  REWR ( IPC *1 , IX ,0) 

36.000 

IP (K .EQ .6) GO  TO  484 

37.000 

IRR(K* 1 ) =ZX 

38.000 

IST-IST *2 

39.000 

483 

IPC -IPC *2 

40.000 

GO  TO  410 

41.000 

464 

CALL  REUR(  256*IRR(5)*IRR(6)  .l.ZJT.l) 

42.000 

IST-IST* 10 

43.000 

GO  TO  483 

44.000 

44 

CALL  WRUO.IPC) 

45.000 

GOTO  409 

. 


46.000  244  IST-IST*1* 

47.000  IPC-IPC* 1 

48.000  GO  TO  410 

49.000  1 CALL  REG  ( I, IR1 2 ( 1 ) ,IR1 2 ( 2 ) ,K) 

50.000  CALL  REG  (1,1X12(3)  ,JX12(4)  , XI ) 

51.000  IFUn.EQ.T .AHD.K.EQ.T)PRINT  414 ,JJ 

52.000  X=55+X1+8*X 

53.000  CALL  URUK.IPC) 

54.000  GO  TO  409 

55.000  201  CALL  REWRUPC .1 ,X1 .0) 

56.000  CALL  REGRUPC  ,IRR  ,K) 

57.000  Xl=Xl/8«8 

58.000  IFUl.EQ.6)GO  TO  411 

59.000  ISX(X1+1)=X 

60.000  IST-IST* 1 

61.000  GO  TO  244 

62.000  411  CALL  REU R ( IRR(S) *256  + IRR (6)  ,1 ,K  ,1) 

63.000  IST=IST*3 

64.000  GO  TO  244 

65.000  414  FORM  AT ( 'AT  LINE  NO  ’.IS,'  THE  ARGUMENTS  ARE  ILLEGAL ') 

66.000  2 CALL  REG  ( I . IR1 2 ( 1 ) ,IR  1 2 ( 2 ) , AT ) 

67.000  x=8*X"4 

68.000  417  C/ILL  URUK.IPC ) 

69.000  GO  TO  409 

70.000  3 C/ILt  XEG(I, 1X12(1), 1X12(2), X) 

71.000  X=8*X-3 

72.000  GO  70  417 

73.000  4 C/«L£  REGi.1  ,IR\2(\)  ,IR\2(2)  ,K) 

74.000  X=127+X 

75.000  GO  TO  417 

76.000  5 CALL  REG  (I, 1X12(1), 7X12(2), X) 

77.000  X=13S+X 

78.000  GO  TO  417 

79.000  6 C4L£  REG  (7,7X12(1)  ,7X12(2)  , X ) 

80.000  X=143+X 

81.000  GO  TO  417 

82.000  7 0/«£L  XEG  ( I,  7X1  2 ( 1 ) , 7X1  2 ( 2 ) ,K  ) 

83.000  X=151+X 

84.000  GO  TO  417 

85.000  8 0X71,  XEG  (I , IRl  2 ( 1 ) , IR 1 2 ( 2 ) , X ) 

86.000  X=159+X 

87.000  GO  TO  417 

88.000  9 0,477  REG  ( 7 ,7X12  ( 1 ) . IRl  2 ( 2 ) ,X  ) 

89.000  X- 1 6 7 + X 

90.000  GO  TO  417 

91.000  10  0,477  REG  (7, 7X12(1), 7X12(2), X) 

92.000  X= 1 7 5 + X 

93.000  GO  TO  417 

94.000  11  0,477  XEG  (7,1X12(1), 7X12(2), X) 

95.000  X=183+X 

96.000  GO  TO  417 
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97.000 

12 

CALL  URH7.IPC) 

98.000 

GO  TO  409 

99.000 

13 

CALL  URUlS  .IPC) 

100.000 

GO  TO  409 

101.000 

14 

CALL  URU23.IPC) 

102.000 

GO  TO  409 

103.000 

15 

CALL  WRU31.IPC) 

104.000 

GO  TO  409 

105.000 

16 

CALL  WRl (118, IPC ) 

106.000 

GO  TO  409 

107.000 

17 

CALL  Vfll(201  ,IPC) 

108.000 

GO  TO  409 

109.000 

18 

CALL  UR1 (216, IPC) 

110.000 

GO  TO  409 

111.000 

19 

CALL  URH208  ,IPC) 

112.000 

GO  TO  409 

113.000 

20 

CALL  WRU.200.IPC) 

114. 000 

GO  TO  409 

115.000 

21 

CALL  Vfil(192,IPC) 

116.000 

GO  TO  409 

117.000 

22 

CALL  UR\ (240, 7PC) 

1 18.000 

GO  TO  409 

1 19.000 

23 

CALL  UR 1(248 ,IPC ) 

120.000 

GO  TO  409 

121.000 

24 

CALL  UR1(232,IPC) 

122.000 

GO  TO  409 

123.000 

25 

CALL  VP 1(224, 7PC) 

124.000 

GO  TO  409 

125.000 

26 

CALL  CTE(I,IR12(1) ,IR12{2) ,K) 

126.000 

*=199+8** 

127.000 

GO  TO  417 

128.000 

27 

*1  = 197 

129.000 

418 

CALL  PPG ( I , ZP 1 2 ( 1 ) , IP 1 2 ( 2 ) , * ) 

130.000 

IFU.EQ.  10)  *=7 

131.000 

*=*l+8»(*nl) 

132.000 

GO  TO  417 

133.000 

28 

*1=193 

134.000 

GO  TO  418 

135.000 

29 

CALL  UR  1 ( 235  , IPC ) 

136.000 

GO  TO  409 

137.000 

30 

CALL  URU  227,  IPC) 

138.000 

GO  TO  409 

139.000 

31 

CALL  URl ( 249, /PC) 

140.000 

GO  TO  409 

141.000 

32 

CALL  UR\ (233, I PC) 

142.000 

GO  TO  409 

143 . 000 

33 

* 1 = 9 

144.000 

420 

CALL  REG(I,IR12(.1),IR12(2),K) 

145.000 

IPUC.EQ.  9)  *=  7 

146.000 

*=*l+8»(*-l ) 

147.000 

GO  TO  417 

— * * 
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148.000 

34 

# 1 = 2 

149.000 

419 

CALL  REGU,  7*12(1),  1*12(2), 

150.000 

AT  = A:i*8*(/f-l ) 

151.000 

GO  TO  417 

152.000 

35 

*1  = 10 

153.000 

GO  TO  419 

154.000 

36 

#1  = 3 

155.000 

GO  TO  420 

156.000 

37 

#1  = 11 

157.000 

GO  TO  420 

158.000 

38 

CALL  VR1 (47, IPC ) 

159.000 

GO  TO  409 

160.000 

39 

CALL  VRUSS.IPC) 

161.000 

GO  TO  409 

162.000 

40 

CALL  VRU63.IPC) 

163.000 

GO  TO  409 

164.000 

41 

CALL  VRU.3S.IPC ) 

165.000 

GO  TO  409 

166.000 

42 

CALL  Wfil(251 ,IPC) 

167.000 

GO  TO  409 

168.000 

43 

CALL  VRl ( 243 , IPC ) 

169.000 

GO  TO  409 

170.000 

46 

#1=198 

171.000 

421 

CALL  CTE(.I,IR12(1),IR12(2),K) 

172.000 

CALL  URI (#1 ,K,IPC ) 

173.000 

GO  TO  409 

174.000 

47 

#1=206 

175.000 

GO  TO  421 

176.000 

48 

#1=214 

177.000 

GO  TO  421 

178.000 

49 

#1=222 

179.000 

GO  TO  421 

180.000 

50 

#1=230 

181.000 

GO  TO  421 

182.000 

51 

#1=238 

183.000 

GO  TO  421 

184.000 

52 

#1  = 246 

185.000 

GO  TO  421 

186.000 

53 

#1=254 

187.000 

GO  TO  421 

188.000 

54 

#1=219 

189.000 

GO  TO  421 

190.000 

55 

#1=211 

191.000 

GO  TO  421 

192.000 

56 

#1=195 

193.000 

422 

CALL  WRHK1 ,0  ,IPC) 

1 94 .000 

GO  TO  44 

195 . 000 

57 

#1=218 

196.000 

GO  TO  422 

197.000 

58 

#1=210 

198.000 

GO  TO  422 
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199.000  59  *1=202 

200.000  GO  TO  422 

201.000  60  *1=194 

202.000  GO  TO  422 

203.000  61  *1=242 

204.000  GO  TO  422 

205.000  62  *1=250 

206.000  GO  TO  422 

207.000  63  *1=234 

208.000  GO  TO  422 

209.000  64  *1=226 

210.000  GO  TO  422 

211.000  65  *1=205 

212.000  GO  TO  422 

213.000  66  *1=220 

214.000  GO  TO  422 

215.000  67  *1=212 

216.000  GO  TO  422 

217.000  68  *1=204 

218.000  GO  TO  422 

219.000  69  *1=196 

220.000  GO  TO  422 

221.000  70  *1=244 

222.000  GO  TO  422 

223.000  71  *1=252 

224.000  GO  TO  422 

225.000  72  *1=236 

226.000  GO  TO  422 

227.000  73  *1=228 

228.000  GO  TO  422 

229.000  74  CALL  REG ( I , IR 1 2 ( 1 ) . IR1 2 ( 2 ) .* ) 

230.000  IFU.EQ.9)K-t 

231.000  *=1*8*<*-1) 

232.000  CALL  URUK.IPC ) 

233.000  CALL  CTE ( I. IH1 2 ( 3 ) . IR1 2 ( 4 ) .* ) 

234.000  423  * 1 =*/ 2 56 

235.000  *=*-*1*256 

236.000  CALL  URHK.K1.IPC) 

237.000  GO  TO  409 

238.000  75  *1=50 

239.000  424  CALL  URUK1.IPC ) 

240.000  CALL  CTEU,  1*12(1),  1*12(2),*) 

241.000  GO  TO  423 

242.000  76  *1=58 

243.000  GO  TO  424 

244.000  77  *1=34 

245.000  GO  TO  424 

246.000  78  *1=42 

247.000  GO  TO  424 

262.000  242  Pff/JVr  426.J./ 

263.000  426  FORMATS  AT  LIRE  NO' ,15,' ER  ABLE  IRTERRUPT ') 
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264.000 

IEI-1 

265.000 

GO  TO  244 

266.000 

243 

PRINT  427 ,JJ 

267.000 

427 

PORN  AH ' AT  LINE  NO'  , IS DISABLE  INTERRUPT ') 

268.000 

ISI- 0 

269.000 

GO  TO  244 

270.000 

240 

ICARzIABSUCAR- 1 ) 

271.000 

GO  TO  244 

272.000 

239 

ICAR=\ 

273.000 

GO  TO  244 

274.000 

229 

K-IRR ( 3 ) 

275.000 

IRR(3)=IRR(.S) 

276.000 

IRR(.S)-K 

277.000 

K-IRR ( 4 ) 

278.000 

.Iff/?  ( 4 ) = IRR(.  6 ) 

279.000 

IRR16)=K 

280.000 

GO  TO  244 

281.000 

231 

ISP-IRR(8)*2S8*IRR{S) 

282.000 

GO  TO  434 

283.000 

2.3  8 

K 2 = 0 

284.000 

*1  = 1 

285.000 

DO  428  .7=1,8 

286.000 

K - IRR  ( 8 ) ■’  ( IRR  (8)/2)*2 

287.000 

IRR(.8)  = IRR(8)/2 

288.000 

K^IABSU’-i) 

289.000 

K2 -K2*K*K 1 

290.000 

428 

*1=*1+*1 

291.000 

IRR(8)=K2 

292.000 

GO  TO  244 

293.000 

241 

* = 0 

294.000 

* 1 -IRR ( 8 ) / 1 6 

295.000 

K2=IRS(8)-K1*16 

296.000 

K3-K2 

297.000 

IP(K2 .GE. 10)  K-l 

298.000 

IP(K*ICY\ .GE . 1 ) K2=*2+6 

299.000 

* = 0 

300.000 

IP((K3.GE. 10). AND. (Kl.EQ. 9)  ) *=1 

301.000 

IPl(ICAR.EQ.l) .OR. I.K1.GE. 10))K-K*1 

302.000 

IP(K.EQ.Q)  GO  TO  429 

303.000 

ICAR=\ 

304.000 

429 

IRR( 8)=X2+*1*16 

305.000 

GO  TO  244 

306.000 

212 

IRR(8)-IRR(8)*2 

307.000 

CALL  CAR(ICAR,IRR(8) ,2 56) 

308.000 

IRR(8)-IRR(8)+ICAR 

309.000 

GO  TO  244 

310.000 

213 

Kl-IRR (8) / 2 

311.000 

1CAR-IRR(8)-'K1»2 

312.000 

IRR(8)=K1*ICAR*128 

313.000 

GO  TO  244 

314.000 

214 

IRR(8)=IRR(8)*2*ICAR 
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315.000 

316.000 

317.000  215 

318.000 

319.000 

320.000 

321.000 

322.000  256 

323.000 

324.000 

325.000 

326.000  469 

327.000 

328.000 

329.000  257 

330.000  432 

331.000 

332.000 

333.000  258 

334.000  2S9 

335.000  260 

336.000  261 

337.000  262 

338.000  263 

339.000  264 

340.000  265 

341.000 

342.000 

343.000 

344.000 

345.000 

346.000 

347.000  266 

348.000  433 
349. GOl 

350.000 

351.000  267 

352.000  268 

353.000  269 

354.000  270 

355.000  271 

356.000  272 

357.000  273 

358.000  232 

359.000 

360.000 

361.000 

362.000 

363.000  230 

364.000 

365.000 


CALL  CAR{ICAR  ,IRR(a  ) ,256  ) 

GO  TO  244 

K1=IRR{  8)/2 

K2=IRR{8)"K1*2 

IRR{B)=K1*ICAR*12B 

ICAR-K2 

GO  TO  244 

CALL  REWR(IPC*1,1,K1.0) 
CALL  REUR ( IPC  *2 ,1 ,K2 ,0) 
IPC-K\*K2*2hB 
IST=IST* 10 

CALL  REUR { IPC ,3 ,K1 ,0) 

JJ-K 1»1 
GO  TO  410 

IP(ICAR.EQ.l)  GO  TO  256 
IPC -I PC *2 
IST=IST*6 
GO  TO  244 

IF  {ICAR)  432.256,432 
IF{IZER ) 432,432,256 
IF{IZER  ) 432,256,432 
I F {ISIG ) 432,256,432 
IF { ISIG)  432,432,256 
I F {IPAR ) 432,432,256 
IF(IPAR)  432,256,432 
K\-{IPC*3 )/256 
K- { IPC *3 ) - K 1 * 2 5 6 
CALL  REUR{ISP-l , 1 ,K1 , 1 ) 
CALL  REUR  {ISP-2 ,1  ,K  ,D 
ISP= ISP-2 
1ST - 1ST  *2 
GO  TO  256 

IF { IC AR ,EQ . 1 ) GO  TO  265 
I PC -IPC *2 
I ST  = 1ST  *2 
GO  TO  244 

IP {IC  AR)  433,265,433 
IF(IZER) 433,433,265 
7f(/Zfi7?)433,265,433 
IF {ISIG)  433,265,433 
I F {ISIG ) 433,433,265 
IFilPAR)  433,433,265 
I F { IPAR)  433,265,433 
IPC=IRR(6)*2S6»IRR(S) 
IST-IST*S 

CALL  REUR(IPC, 3, *1,0) 

JJ-K 1"1 
GO  TO  410 

CALL  REUR{ISP , 1 ,X1 , 0 ) 

CALL  REUR{ISP,\,IRR{B),1) 
IRR{ 6 ) =X1 
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366.000 

CALL  REWR (7SP+1,1,K1,0) 

367.000 

CALL  REWR  (75P+1  , 1 , IRR  ( 5 ) , 1 ) 

368.000 

IRRIS)=K1 

369.000 

7S7=7S7+14 

370.000 

GO  TO  244 

371.000 

217 

CALL  REWRdSP,  1 .ATI , 0 ) 

372.000 

CALL  REWR(ISP*l.l.K2,0 ) 

373.000 

ISP-ISP*2 

374.000 

7PC=K2+2S6+K1 

375.000 

IST=IST* 11 

376.000 

GO  TO  469 

377.000 

218 

IFdCAR.EQ.X)  GO  TO  217 

378.000 

434 

757=757+1 

379.000 

GO  TO  244 

380.000 

219 

IFdCAR)  434,217.434 

381.000 

220 

IF(IZER) 434,434,217 

382.000 

221 

IFdZER) 434,217,434 

383.000 

222 

IFdSIG)  434,217,434 

384.000 

223 

7F(757G)434,434,217 

385.000 

224 

IF  UP/tR)434,434,217 

386.000 

225 

IFdPAR ) 434,217,434 

387.000 

255 

CALL  REWR ( 7PC  + 1 , 1 , X 1 , 0 ) 

388.000 

PRINT  ,J J ,K\  ,IRR  ( 8 ) 

389.000 

435 

FORHATdAT  LINE  NO  ',75,'  OUTPUT  NO 

390.000 

I PC = I PC *2 

391.000 

757=757+10 

392.000 

GO  TO  410 

393.000 

226 

CALL  REWRdPC  .l.Kl.O) 

394.000 

K3  = ( Ul-192)/8  )*8 

395.000 

501 

K2-(IPC*1 ) / 2 56 

396.000 

f£-(IPC*l)"X2*2S6 

397.000 

CALL  REWRdSP-l,l,K2,X) 

398.000 

CALL  REWRdSP'2,l,K,l) 

399.000 

ISP-1SP-2 

400.000 

IPC-K3 

401.000 

757=757+11 

402.000 

CALL  REWRdPC  ,3,J?1.0) 

403.000 

«/«7  = Xl"l 

404 . 000 

GO  TO  410 

405.000 

204 

REGRdPC  .IRR.K) 

406.000 

437 

CALL  ICUICn.K.IRRd )) 

407.000 

439 

7Pfl(8)=7PP(8)+X 

408.000 

447 

CARdCAR.IRRd)  ,256  ) 

409.000 

FFZSPdZER.ISIG.IPAR.IRRd  ) ) 

410.000 

GO  TO  244 

411.000 

246 

C/tLI,  REWR(IPC*\ , 1.X.0) 

412.000 

438 

757=757+3 

413.000 

IPC-IPC*\ 

414.000 

GO  TO  437 

415.000 

205 

C/1L7  REGRdPC  .IRR.K) 

416.000 

K-K* IC  AR 
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417.000  GO  TO  437 

418.000  247  CALL  RBHRUPC ,K  ,0) 

419.000  K=K*ICAR 

420.000  GO  TO  438 

421.000  206  CALL  REGRUPC , IRR  ,K) 

422.000  440  * = <»* 

423.000  GO  TO  439 

424.000  248  CALL  RBUR IIPC*1 , 1 ,K . 0 ) 

425.000  IST=IST* 3 

426.000  IPC*IPC* 1 

427.000  GO  TO  440 

428.000  207  CALL  RBGR ( IPC ,IRR ,K) 

429.000  441  K-f<K*ICAR 

430.000  GO  TO  439 

431.000  249  CALL  REUR ( IPC*1 . 1 .* . 0 ) 

432.000  IST=IST* 3 

433.000  IPC=IPC* 1 

434.000  GO  TO  441 

435.000  208  CALL  REGRUPC  ,IRR ,K) 

436.000  443  *6=2 

437.000  71=2 

438.000  444  *4=0 

439.000  7C*J?  = 0 


440.000  /cn=o 

441.000  *5=1 

442.000  DO  442  7=1,6  • j 

443.000  * 3=0 

444.000  * 1 =*•>(*/  2 ) *2 

445.000  *2=7/?fl(0)-(7flfl(8)/2)*2 

446.000  IF( < *1 ♦*  2 ) . EQ . K6 .OR . (*l+*2) .EG. II )*3  = 1 ' 


447.000  *4=*3»*5**4 

448.000  IRR ( 8 ) - IRR ( 8 ) / 2 

449.000  *=*/ 2 

450.000  442  *S=*S*2 

451.000  IRR ( 8 ) =*4 

452.000  CALL  FFZSP ( I ZER , IS IG , I PAR , I RR ( 8 ) ) 

453.000  GO  TO  244 

454.000  250  CALL  REUR ( IPC* 1 , 1 .* . 0 ) 

455.000  IST-IST* 3 

456.000  IPC-IPC* 1 

457.000  GO  TO  443 

458.000  209  CALL  REGRUPC  ,IRR,K) 

459.000  445  *6=1 

460.000  71=1 

461.000  GO  TO  444 

462.000  251  CALL  REUR ( 7PC  + 1 . 1 , * . 0 ) 

463.000  IST-IST*3 

464.000  IPC -IPC* 1 

465.000  GO  TO  445 

466.000  210  CALL  REGRUPC  .IRR  .K) 

467.000  446  *6=1 
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468.000 

11=2 

469.000 

GO  TO  444 

470.000 

252 

CALL  REWRUPC*  1,1, #.0) 

471.000 

IST=IST*3 

472.000 

IPC=IPC*\ 

473.000 

GO  TO  446 

474.000 

211 

CALL  RBGRUPC  .IRR.K) 

475.000 

448 

K-IRR ( 8 ) "X 

476.000 

CALL  CARUCAR.K,  256) 

477.000 

CALL  PPZSPUZER  .ISIG  .IPAR.K) 

478.000 

GO  TO  244 

479.000 

253 

CALL  REURUPC+1.1.K.0 ) 

480.000 

IST=IST*3 

481.000 

IPC-IPC*1 

482.000 

GO  TO  448 

483.000 

202 

#1  = 1 

484.000 

450 

CALL  REURUPC , 1 , #,  0 ) 

485.000 

#=#/  8 

486.000 

IP(K. 50.6)  GO  TO  449 

487.000 

IRR(K*\)-IRRU*1  )*K  1 

488.000 

CALL  C AR  (.K3  ,/5/?(#  + l),256) 

489.000 

CALL  PPZSPUZER , ISIG. IPAR  ,IRRU*1  ) ) 

490.000 

IST=IST*1 

491.000 

GO  TO  244 

492.000 

449 

CALL  REWR (IRR (5) *2 56+Ifl# (6) .1, #2.0) 

493.000 

#2=#2+#l 

494.000 

CALL  (7## (#3, #2, 256) 

495.000 

CALL  PPZSPUZER.  ISIG.  IPAR  ,#2) 

496.000 

CALL  RBWR(  IRR  (5)*256  + 7/f/f(6),l,#2,l) 

497.000 

IST=IST* 5 

498.000 

GO  TO  244 

499.000 

203 

#1  = -1 

500.000 

GO  TO  450 

501.000 

275 

CALL  RE»RUPC*\,\.Kl,0) 

502.000 

CALL  REURUPC*7.\,K7,0) 

503.000 

K 1 =#2*256+Xl 

504.000 

GO  TO  (375,276,277,278)  IRST-TU 

505.000 

375 

CALL  REWRUCl.l.IRRU)  ,1) 

506.000 

451 

IST-IST*13 

507.000 

I PC = I PC *3 

508.000 

GO  TO  410 

509.000 

276 

CALL  RSWRUl,\,IRRiS)  ,0) 

510.000 

GO  TO  451 

511.000 

277 

#2  = 1 

512.000 

452 

CALL  REURiKl , 1 , IRR ( 6 ) ,X2 ) 

513.000 

CALL  REWR IK  1 + 1,1 ,IRR ( 5 ) , #2 ) 

514.000 

IST=IST*3 

515.000 

GO  TO  451 

516.000 

278 

#2  = 0 

517.000 

GO  TO  452 

518.000 

234 

#=1 
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519.000 

453 

CALL  REURdPC ,1,X1,0) 

520.000 

Jtl  = Ul/16)*2*l 

521 . 000 

CALL  RSURdRRUl)*25&*IRRUl*l  ) ,X) 

522.000 

I ST = I ST *3 

523.000 

CO  TO  244 

524.000 

235 

X = 0 

525.000 

CO  TO  453 

526.000 

236 

jr= i 

527.000 

456 

CALL  RBGRR (IPC ,X2 ) 

528.000 

IP  U2  .EQ  .2  ) GO  TO  454 

529.000 

K\*IRRU2)*2Sf>*IRR{K2*\)*K 

530.000 

IPUl.GE.  65536  )Xl=Xln65536 

531.000 

IX(Xl.Lr.0)Xl=Xl+65536 

532.000 

IRR(K2 ) =X1 /2  56 

533.000 

IRR(K2*1)=K1”IRRU2)*2S6 

534.000 

455 

I ST -I ST* 1 

535.000 

CO  TO  244 

536.000 

454 

ISP=ISP*K 

537.000 

IFdSP.GB.  65536  )/SP= JSP-65536 

538.000 

IP(ISP.LT.O)ISP-ISP*6S336 

539.000 

GO  TO  455 

540.000 

237 

K = * 1 

541.000 

GO  TO  456 

542.000 

233 

CALL  REGRRdPC  ,K) 

543.000 

IFU.EQ.2)G0  TO  457 

544.000 

Kl  = IRRU)*2bS*IRR(K*i  ) 

545.000 

458 

X1=X1  + IRR(  5 )*256  + /R/?(6  ) 

546.000 

CALL  CARdCAR,  XI,  65536  ) 

547.000 

IRR (5)=Xl/256 

548.000 

.TRff  (6)=XWfii?(5)*2S6 

549.000 

IST-IST*6 

550.000 

GO  TO  244 

551.000 

457 

K\=ISP 

552.000 

GO  TO  458 

553.000 

274 

CALL  REURdPC*  1.1.X1.0) 

554.000 

CALL  REURdPC* 2.1.X2.0) 

555.000 

CALL  REGRRdPC  ,X) 

556.000 

IFU.EQ.  7)  GOTO  459 

557.000 

IRR ( X ) =X2 

558.000 

IRR(K*1 ) =X1 

559.000 

460 

IST=IST*10 

560.000 

IPC -IPC +3 

561.000 

GO  TO  410 

562.000 

459 

ISP-K2* 2 56*X1 

563.000 

GO  TO  460 

564.000 

227 

CALL  REGRRdPC  ,X) 

565.000 

IFU.EQ.  7)G0  TO  461 

566.000 

CALL  REURdSPni,i,lRRU)  .1) 

567.000 

CALL  REUR (ISP"2 , 1, IRR (K*l ) , 1 ) 

568.000 

462 

ISP-ISP* 2 

569.000 

IST=IST*7 
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570.000 

GO  TO  244 

571.000 

461 

CALL  RBWRUSP"1,\,IRIH&)  ,1) 

572.000 

K*ICAR+**IPAR+2+16*ICYl+6^*IZER+12B*ISIG 

573.000 

CALL  REWR(ISP’'2,l,K,l) 

574.000 

GO  TO  462 

575.000 

228 

CALL  REGRR(IPC ,K) 

576.000 

IPU.EQ.7)  GO  TO  463 

577.000 

CALL  REURdSP+l.l.IRRU)  .0) 

578.000 

CALL  REW R ( ISP, 1 , IRR ( K +1 ) .0) 

579.000 

464 

ISP-ISP*2 

580.000 

IST=IST+B 

581.000 

GO  TO  244 

582.000 

463 

CALL  REWR (X5P+1 , 1 ,IRR ( 8 ) , 0 ) 

583.000 

CALL  REURdSP.  l.K.O) 

584.000 

ICAR-K*(K/2 )*2 

585.000 

K = K/  4 

586.000 

IPAR=K-lK/ 2)*2 

587.000 

K-K/4 

588.000 

ICY\-K-(K/2)*2 

589.000 

K-K/ 4 

590.000 

IZEfl=K-(K/ 2)*2 

591.000 

K-K/  2 

592.000 

ISIG-Kr-(K/ 2 ) *2 

593.000 

GO  TO  464 

594.000 

254 

CALL  REURdPC  + 1,  l.K.O) 

595.000 

PRIST  465 ,JJ .IPC ,K 

596.000 

465 

PORMATC  AT  LISE  SO  '.IS,'  (,PC=  ',1 4.'  ) ISPUTSO  ',1 4,'  IS:') 

597.000 

READ  466, *1 

598.000 

466 

FORMAT (I) 

599.000 

IRR  ( 8 ) =K1 

600.000 

IPC -IPC *2 

601.000 

IST=IST* 10 

602.000 

GO  TO  410 

603.000 

216 

IPdEI  ,EQ.O)GO  TO  485 

604.000 

PRIST  468 ,JJ 

605.000 

468 

PORMATCHALT  AT  LISE  SO  '.IS,'  RESTART  ISSTA  0-7):’) 

606.000 

471 

READ  466, K1 

607.000 

IEI-0 

608.000 

K3=K1*8 

609.000 

I ST = 1ST *7 

610.000 

GO  TO  501 

611.000 

279 

IFdEI.EQ.  0)  GO  TO  410 

612.000 

PRIST  470 ,JJ 

613.000 

470 

PORMATC AT  LISE  SO  ’.IS,'  RESTART  ISST . ( 0^7  ) : ' ) 

614.000 

GO  TO  471 

615.000 

280 

PRIST  H72.JJ  ,IPC  ARRd)  ,(IRR(K)  ,K-1,B),ISP,IST,ICAR,IZER, 

616.000 

dSIG.IPAR.IEI 

617.000 

472 

PORMATC  LISE  PC  A B C D E' 

618.000 

1'  H L SP  STEP  CAR  ZBR  SIG  PAR' 

619.000 

2'  El'./, 16/7) 

620.000 

GO  TO  410 

UNCUSS  IF  I ED 
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621.000  81 
622.000 

623.000  415 

624.000 

625.000 

625.100 

625.200 

626.000 

627.000 

627.100 

628.000 

629.000  430 

630.000 

631.000 

632.000 

632.100  505 

632.200 
632.300 
632.400 

633.000  412 

634.000  474 

635.000 

636.000 

637.000  478 

638.000 

639.000  477 

640.000  479 

641.000 

642.000  485 

643.000 

644.000  503 

645.000 

645.100 

646.000 

647.000 

648.000  410 

649.000 

650.000 

651.000 

652.000 

653.000 

654.000 

655.000 

656.000 

657.000 

658.000  82 

659.000 

660.000 
661.000 

662.000  85 

663.000 


.7.7  = 0 
IPC  = 0 

1 

CALL  SHJJ  .i.LABP.LAB  .INST  ,IR\P.IR2P.IR\2,I) 
IPUNST.aB.56.AND.INST.LT. 74)  CALL  LABEL U . IR1 2 ( 1 ) . 
\IR\2(2) .LABR.IPCR.IPC .LABC) 

IP  UN  ST .GB. 56. AND. INST .LT .74 ) GOTO  415 

IPilNST.BQ.BDGO  TO  412 

IPUNST ,BQ.BS)GO  TO  504 

IP  UNST  .BQ . 86 )GOTO  505 

IP  UNST .GB . 79 )GO  TO  415 

IP UNST. GE. 56) IPC=IPC*\ 

IPUNST.GE.95)IPC  = IPC*1 
I PC  = I PC  *1 
GO  TO  415 

CALL  CTEU,IR12(1),IR12(2),K1) 
ja=«i"i 

CALL  LABELU  ,IR\2(  3)  ,I/?12(4)  ,LABR  ,IPCR  ,K1  .LABC) 

GOTO  415 
PRINT 474 

PORHATUEND  OP  ASSEMBLING'  ) 

IPUABC  ,EQ.O)GOTO  485 
PRINT  478 

PORMATU / .’THE  LABELS  ARE,  WITH  THEIR  ADDRESSES') 

DO  477  J-l.LABC 

PRINT  W9 .IPCRU)  ,LABR(J) 

PORMAH5X.I8.5X.A9) 

WRITE  (2  ’ NC  U)  ) (IBUP  U ,J)  ..7=1,256  ) 

JJ- 0 

PRINT  503 

FORM AT ( ’ DO  YOU  WANT  A SIMULATION?  YES=1,N0  = 0'  ) 

READ  466 ,K3 
1ST*  0 

IP U3.NE.1)  GO  TO  281 
IPC  = 0 
JJ-JJ* 1 

CALL  SHJJ  .2.LABP.LAB  .INST . IR1P  ,IR2P , IR12 , 1) 

GOTO (2 01. 202, 203, 204, 20 5, 20 6, 207, 2 0 8, 20 9, 21 0,21 1.21  2 
1213,214,215,216.217,218,219,220,221,222,223,224,225, 
2226,227,228,229,230,231,232,233,234,235,236,237,238, 
3239,240,241,242,243,244,245,246,247,248,249,250,251, 
4252,253,254,255,256,257,258,259,260,261,262,263,264, 
5265,266,267,268,269,270,271,272,273,274,275,275,275, 
6275,279,280,485,410,283,410,285) .INST 
GO  TO  410 

CALL  CTE U ,IR12 ( 1) ,IR12( 2) ,K) 

CAT  ' CTEU,IR12(3)  ,Zfil2(4),Kl) 

Cr  J REWR(K.l.Kl.l) 

Gc TO  409 

CALL  CTE U ,IR\2i l) ,IR12(2) ,IPC ) 

IL-IPC*\ 
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664, 

.000 

665, 

.000 

504 

666. 

. 000 

667, 

.000 

285 

668, 

.000 

669, 

.000 

283 

670, 

.000 

671 , 

. 000 

672, 

.000 

498 

673, 

.000 

674, 

.000 

499 

675. 

.000 

497 

676, 

.000 

677, 

.000 

500 

678, 

.000 

84 

679. 

, 000 

680. 

. 000 

681, 

,000 

281 

682. 

. 000 

467 

6 83. 

. 000 

684. 

.000 

685. 

.000 

686. 

.000 

687  . 

.000 

688  . 

. 000 

689. 

. 000 

690. 

. 000 

691 . 

.000 

692. 

,000 

6 93. 

, 000 

480 

694. 

.000 

695. 

.000 

696. 

,000 

697. 

.000 

698. 

, 000 

699. 

, 000 

700. 

,000 

701 . 

, 000 

702. 

, 000 

703. 

,000 

704. 

.000 

705. 

,000 

706. 

.000 

707, 

.000 

708. 

,000 

709. 

.000 

3 

710. 

.000 

711. 

.000 

2 

712. 

,000 

713. 

,000 

714. 

,000 

1 

GO  TO  409 

CALL  CTE (I ,IR\2( 1) ,1*12(2) ,IPC ) 

GOTO  415 

CALL  REUR(JJ .2.IPC.0) 

GO  TO  410 

CALL  CTE(I,IR12(1) ,IR12(2) ,K) 
IF(K*1.EQ.NC(1))  GO  TO  499 
READ(2'K*\)(KS(J)  ,J=  1,256) 

PRINT  500 .JJ.K.KS 
GO  TO  410 
DO  497  <7=1 , 256 
KS (J ) - IBUF (\ ,J) 

GO  TO  498 

FORM  AT ('AT  LINE  NO  ',15,'  MEMORY  MAP  NO 
CALL  CTE(I .1*12(1) ,IR\2(2) ,K) 

IPC  R ( LABC ) = * 

GOTO  409 

V RITE  (2'  NC  (1)  ) (IBVF  ( 1 ,<7 ) ,<7  = 1,256) 

CALL  EXIT 
END 

SUBROUTINE  REG (I ,LB ,LF ,J) 

DIMENSION  KR(10)  ,1(32) 

DATA  KR/HHB  ,kHC  ,4 HD  ,4 HE  .4 HH 

14 HM  , HHA  , 4*SP  , HHPSW  / 

DECODE (LF,2,I)LB~\,IR 
2 FORM  AT (NX , -44  ) 

DO  1 ,7=1,10 

1 IFdR.EQ.KR(J))  RETURN 
PRINT  480 ,<7<7 

FORMATdURONG  ARGUMENTS  AT  LINE  ',75) 

RETURN 

END 

SUBROUTINE  CTE (I ,LB ,LF ,IR) 

DIMENSION  7(32) 

DEC  ODE  (LF,2,I)LB-1,LF’-LB+l,IR 

2 FORMAT(NX .IN) 

RETURN 

END 

SUBROUTINE  REWR  ( IAD.NF.K.M ) 

COMMON  IBUFO,  256  ) ,NC  ( 3)  ,IFL(  3) 

Kl  = I/ID/256 
*2  = 7-4CnKl*256  + l 
*1=*1+1 

IF(K\.NE.NC(NF ))  GO  TO  1 
6 IF  (M)  2,3,2 
K=IBUF(NF ,*2) 

RETURN 

IBUF (NF ,K2 ) =* 

IFL(NF) =1 
RETURN 

IP(IFL(NF) ) 4,5,4 


' ,74, ' IS: ',/, 16(1676, /) ) 


,4  HL 
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715.000  5 

716.000 

717.000 

718.000  4 

719.000 

720.000 

721.000 

722.000 

723.000 

724.000 

725.000 

726.000 

727.000 

728.000 

729.000 

730.000 

731.000 

732.000 

733.000 

734.000 

735.000 

736.000 

737.000 

738.000 

739.000  1 

740.000 

741.000 

742.000 

743.000 

744.000 

745.000 

746.000 

747.000 

748.000 

749.000 

750.000 

751.000 

752.000 

753.000 

754.000 

755.000 

756.000 

757.000 

758.000 

759.000  1 

760.000 

761.000 

762.000 

763.000 

764.000 

765.000 


READ(.NF*l'  Kl)UBUF(NP.J)  ,J- 1,2  56) 

NCINF)=K1 

GO  TO  6 

WRITE(.NF*1'NC(NF)  ) ( IBUFUiF.J ) ,J- 1,25  6) 
IFUNP)-  0 
GO  TO  5 
END 

SUBROUTINE  URKI.J  ,IPC) 

CALL  REVRUPC  .1,1 ,1) 

CALL  REUR(IPC*l,l.J.l) 

IPC  - 1 PC  *2 
RETURN 
END 

SUBROUTINE  UR\(I,IPC) 

CALL  RENR ( IPC .1,7,1) 

I PC  = I PC*  1 
RETURN 
END 

SUBROUTINE  CAR(IC .1 ,IM) 

IC  = 0 

IF(I .LT .IM)  GO  TO  1 
IC- 1 
/=/»/# 

RETURN 

IFU.GE.  0)  RETURN 

IC-l 

I-I*IM 

RETURN 

END 

SUBROUTINE  REGRR (IPC ,K) 

CALL  REWRdPC  . 1,#1.0) 

#2=«1/16 

#l=#l/64 

#=#2"#1*4 

#=**2+1 

RETURN 

END 

SUBROUTINE  REGRUPC  ,IRR  ,K) 

DIMENSION  IRR( 10) 

CALL  REUR ( IPC , 1 , # , 0 ) 

K-K*U/ 8 )*8 
IF(K.EQ. 6)  GO  TO  1 
K-IRR(K*1) 

RETURN 

CALL  REUR(IRR(S) *2S6*IRR ( 6 ) , 1 , # , 0 ) 

RETURN 

END 

SUBROUTINE  IC Y ( IC Y 1 ,K ,1 ) 

#l=#nU/16)*16 
#2  = /"U/16)  + 16 
XCY1=0 


766.000  Zf(Ul  + 2)  .GP.16)  ICY  1 = 1 

767.000  RETURN 

768.000  END 

769.000  SUBROUTINE  FFZSPUZER  ,ISIG  ,IPAR  ,L) 

770.000  IZER-Q 

771.000  ZPU.Pfl.O)  IZER=\ 

772.000  ISIG-0 

773.000  IF (L .GE . 128 ) ISIG  = 1 

774.000  ZP-4ff=0 

775.000  I=L 

776.000  DO  1 .7=1,8 

777.000  IPAR=I«(I/2)*2*IPAR 

778.000  1 1=1/2 

7 7 9. 00  0 IPAR-IABSUPAR-(IPAR/2)*2-  \ ) 

780.000  RETURN 

781.000  END 

782.000  SUBROUTINE  SUI.N.L ) 

783.000  DIMENSION  Z( 32) 

784.000  0i4T/l  Af^S/f/8Z0000 OOFF / 

785.000  W=1+(#h1)/4 

786.000  K=N"(M~1 )*4 

787.000  ZZ=Z5Z(Z(M),8*(Bn4)) 

788.000  L=IAND(MASK,II) 

789.000  RETURN 

790.000  B00 

791.000  SUBROUTINE  SE ARC H (I ,NC ,LB ,LF ,C P .PC ) 

792.000  INTEGER  CP, PC 

793.000  DIMENSION  I( 32) 

794.000  00  1 N=LB,LF 

795.000  C.4ZZ  SUI.N.L ) 

796.000  IFU.EQ.NC ) GO  TO  2 

797.000  1 CONTINUE 

798.000  CP=0 

799.000  RETURN 

800.000  2 CP=1 

801.000  P0  = B 

802.000  RETURN 

803.000  BiVD 

804.000  SUBROUTINE  SUJ,K,LABP,LAB.INST,IRIP,IR2P,IR12,I ) 

805.000  DIMENSION  INS(.  86  ) ,ZP12  ( 4 ) ,Z(  32  ) 

806.000  D/IT/1  INS/^HMOV  .HHINR  .URDCR  , HHADD  ,4fl/IDC  ,4  HSDB  ,4  ffSBB 

807.000  14B-4M  ,*HXRA  .kHORA  ,*\HCMP  .HHRLC  ,*HRRC  ,HHRAL  .HHRAR  , 

808.000  24 HHLT  .4 HflBT  ,4HPC  ,4 HflBC  ,4HPZ  ,4flfiWZ  ,4HPP  ,4HPM  , 

809.000  34 BtfPB  .HHRPO  .HHRST  .HHPUSH .HHPOP  , HHXCHG , kHXTHL , ‘iHSPHL , 

810.000  44HPCBL  , 4HD/I0  , ST  AX  , kH  LDAX  , ‘tHINX  ,*HDCX  .4HCM/I  ,4  HSTC  , 

811.000  SUHCMC  , HHDAA  ,HHEI  ,HHDI  .HHNOP  ,*HMVI  ,*HADI  ,*HACI  , 

812.000  64HSDZ  ,*HSBI  ,*HANI  ,4 HXflZ  , 4H0PZ  ,4 HCPZ  ,4BZW  .4B00T  , 

813.000  74 HJMP  ,*HJC  ,HHJNC  ,*HJZ  .HHJNZ  ,4 ff«7P  ,4 HJM  ,*HJPE  , 

814.000  84 ffZPO  ,4SC  ALL  ,4BCC  .HHCNC  ,4flCZ  , 4BCSZ  , 4BCP  ,4BCM  . 

815.000  94BCPB  ,4B0P0  , UHLXI  ,HHSTA  ,*HLDA  , 4B5BD0 , kBLHLD , HHINTE , 

816.000  AHHPRIN .HHEND  .HHASSI.HHMAP  ,HHV AR  ,HHBASE,I\HASSD/ 


■ 
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817.000 

818.000 

819.000 

820.000 
821.000 
822.000 

823.000 

824.000 

825.000 

826.000 

827.000 

828.000 

829.000 

830.000 

831.000 

832.000  13 

833.000 

834.000 

835.000 

836.000 

837.000 

838.000 

839.000 

840.000 

841.000 

842.000 

843.000 

844.000 

845.000 

846.000 

847.000 

848.000  7 

851.000 

852.000 

853.000 

854.000 

855.000 

856.000 

857.000 

858.000 

859.000 

860.000 

861.000  9 

863.000  14 

864.000 

865.000 

866.000 

867.000 

869.000 

870.000 

871.000 


INTEGER  CP. PC 
ENCODE  (128,12,/) 

12  FORM AT l 4#  ) 

CALL  DIRECT  READ(  1 , 1 , 32  ,J ) 

IRXP-0 

IR7P-0 

LB  = 1 

LF- 128 

CALL  SEARCHd  ,94  ,LB  ,LP  ,CP  .PC) 
IF(CP.EQ.X)  LF-PC  •<  1 
CALL  CLSPd  ,LF,-1 ) 

LABP-Q 

CALL  CLSPd  .LB, 1) 

CALL  SEARCHd  ,122  , LB  ,LF  ,C  P .PC  ) 
IPiCP.EQ.l ) GO  TO  2 
CALL  CLSPd. LB,  1) 

CALL  SEARCHd  .64,  LB,  LF.  CP,  PC) 
LFF=LF 

IF (CP . EQ . 1)  LFF=PCn 1 
GO  TO  4 

2 IFU.NE.  0)  GO  TO  6 
LABP-1 
LAB=‘*H 
LK-1 

DO  7 LX  - LB , PC n 1 
CALL  SHI, LI, L) 

IF(L .EQ.1H  ) GO  TO  7 
L-ISL(L ,B*(krLK) ) 

MASK-ISC ( BZFFFFFF00 ,8*(4"0K) ) 
LAB=IOR(I AND (MASK, LAB) ,L) 
IFiLK.EQ. 4 ) CO  TO  6 
LK=LK* 1 
6 LB=PC* 1 
CO  TO  13 
4 INST-kH 
LK- 1 

00  9 01 =£0,00*3 
CALL  SKI, LI, L) 

70(01. CT. 000)0=6 4 
0 = /S0(0,8*(4f.0X)  ) 

MASK= ISC  ( 8ZOOOOOOOO , 8*  ( 4-00)  ) 

INST -IOR(I AND (MASK, IN  ST) ,L) 

LK=LK* 1 

00=000* 1 

00  10  01=1,86 

IF(INS(Ll) .EQ.INST)  GO  TO  11 

10  CONTINUE 

11  INST=LX 

CALL  CLSPd, LF,'  1) 

IF(LB.GT.LF)  RETURN 
7010=1 
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872.000 

873.000 

874.000 

875.000 

876.000 

877.000 

878.000 

879.000 

880.000 
881.000 
882.000 

883.000 

884.000 

885.000 

886.000 

887.000 

888.000 

889.000 

890.000 

891.000 

892.000 

893.000 

894.000 

895.000 

896.000 

897.000 

898.000 

899.000 

900.000 

901.000 

902.000 

903.000 

904.000 

905.000  ' 

906.000 

907.000 

908.000 

909.000 

910.000 

911.000 
rn EOF  HIT 
*BND 


CALL  CLSP(I ,LB , 1 ) 

CALL  SEARCH(I,  107 , LB.  LP.  CP,  PC) 

IR12(1)-LB 

IF (CP . EQ . 1 ) GO  TO  1 

IRX2(2)-LF 

RETURN 

1 LK  = PC " 1 

CALL  CLSP( I ,LK , « 1 ) 

IRX2(2)=LK 
IR2P-X 
LB=PC* 1 

CALL  CLSP(I ,LB ,1 ) 

IRX2( 3) - LB 

Ifil 2 ( 4 ) 

RETURN 

END 

SUBROUTINE  CLSPd  ,LB  ,J) 

DIMENSION  1(32 ) 

2 CALL  SKI. LB, L) 

IF ( L .N  E ) RETURN 
LB=LB*J 

GOTO  2 
END 

SUBROUTINE  L ABEL (I ,K\ . K2 , LABR . I PC R ,K3 , L ABC ) 
DIMENSION  I (32) ,LABR(200) ,1  PC R(200) 

DECODE  (K2,l.I)Kl*X,K 
FORM  AT  (NX  ,<44  ) 

LAI-0 

DO  2 J-l.LABC 

IF(K.EQ.LABRiJ))  LAI=LAI* 1 
I F (K . EQ . LABR (J ) ) LAB=IPCR(J) 

IF(LAI  .EQ.DGOTO  3 
PRINT  <*,LAI,K 

FORMAT  ( ' THERE  ARE  '.13,'  LABELS  CALLED  ’,>!4) 

#3=*3+l 

*1=1-48/256 

LAB-LAB-'K\*2BB 

CALL  WRI (LAB ,K1 ,K3) 

RETURN 

END 

AFTER  911. 
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EDIT  MOR 
*TY  1 <•  2 5 

APPENDIX  B 

Listing  of  MORP 

1.000 

INTEGER  TYPE(2) ,SIZE(2) 

2.000 

INTEGER  i?(  256,4) 

3.000 

TYPE(.  1)  = 2 

4.000 

TYPE  (.2)  = 2 

5.000 

SIZ£(1)=1 

6.000 

SIZE(.  2)  = 1024 

7.000 

PRINT  2 

8.000  2 

FORM  AT ( 'WHAT  IS  THE  STARTING  MEMORY  PAGE?') 

9.000 

DEFINE  FILE  2 ( 2 5 6 . 2 56 ,U , IC A ) 

10.000 

READ  1 ,N 

11.000 

1 FORMAT(I) 

12.000 

N = N+ 1 

13.000 

RE  AD  {2'  N)  (R  (.1 ,1  ) ,1  = 1,256  ) 

14.000 

READ(2'N+l)(R(I,2),I=I,2b6) 

15.000 

READ(.2'N  + 2 )(RU, 3),  1 = 1.256) 

16.000 

READ ( 2 ' + 3 ) (R ( i , 4 ) , I- 1 , 2 5 6 ) 

17.000 

C/lii  FT  IE  ( 5 , 'F/«  ’ ) 

18.000 

FREPL AC E(5,l,R, SIZE, TYPE) 

19.000 

CALL  FUNTIE ( 5 ) 

20.000 

EJfIT 

21.000 

END 

EOF  HIT 

AFTER  21. 

UNCLASSIFIED 

31 


APPENDIX  C 
Listing  of  ASSPROM 


V4SSPP0MC0] V 

V ASSPROM 

[1] 

'FA' FT  IE  6 

[2] 

A-FREAD  6,1 

[3] 

FUNTIE  6 

[4] 

'O' ' OUT  FORGET  TO  SAVE 
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possible  to  simulate  interrupts  and  print  out  intermediate  results.  possible  to  simulate  interrupts  and  print  out  intermediate  results. 

This  new  version  may  be  used  on  any  computer  with  a FORTRAN  compiler  This  new  version  may  be  used  on  any  computer  with  a FORTRAN  compiler 

while  the  former  APL  version  was  slower  by  a factor  of  ten  and  limited  while  the  former  APL  version  was  slower  by  a factor  of  ten  and  limited 

to  a computer  with  an  APL  interpreter.  (U)  to  a computer  with  an  APL  interpreter.  (U) 


